TweetFollow Us on Twitter

Sep 85 Mousehole
Volume Number:1
Issue Number:10
Column Tag:Mousehole Letters

Mousehole Report, Letters

By Rusty Hodge, Sys Op & Contributing Editor, Mousehole BBS

Program bombs Lisp

MICRO GHOUL

I have been having a problem with a consistent bomb in ExperLisp that I was wondering whether anyone else was having. The following, though a terrible little routine is a perfect way to get to the bomb (which I was finally able to isolate trying to make a nice routine, that a later version of this piece of trash was working towards). Well, enough about that, here it is:

(SETQ MYWIND (NEWGRAFWINDOW '(100 100 300 350)))
(MYWIND 'SETWTITLE "GONNA BOMB!!")
(DEFUN COORDINATES ()
    (GETMOUSE))
(WHILE
    (NOT (BUTTON))
    (MYWIND 'SELECTWINDOW)
    (APPLY
         FILLOVAL '(50 50 (CAR (COORDINATES)) (CADR (COORDINATES)) MYWIND)))

Please excuse any typos or forgotten "(" or ")" or "'", if I forgot them here does not mean that I forgot them in the actual code, more important is the fact that though Lisp tries to give me an error it bombs with the ID #2 everytime. In fact the first time rather than just a bomb it added the desire to have a disk swap (though both disks where in their respective drives!)

Contest Winner

THE CATCHER

The Catcher (alias Steve Yaeger) wins the Mousehole printing contest sponsored by MacTutor, with this assembly entry to mimic the BASIC statement: PRINT "HELLO":END on the Macintosh. Steve wins a check for $50 and a MacTutor thank you. DON L also submitted an excellent answer that we will print next month.

; Print "hello" on the printer.
;       Written by Steve Yaeger
; If the printer is off-line, this will hang the Mac
;       until it is put back on line
; If there is no Printdriver file it just Beeps and exits
;
; The Linker file looks like this
;
;       HELLO.REL
;       ]
;
; These are the Equates Notice that the iPrReset, iPrLineFeed, 
; and  iPrPageEnd are Longwords and not words as in 
; PREQU.TXT from Counsulair.

 XREF START

; These are the PrDrvr constants.
 
iPrDrvrRef  EQU      $FFFD  ; Driver's RefNum = NOT ResID
iPrIOCtl       EQU      5              ; The Raw Byte IO Proc's ctl # 

PrDevCtl       EQU      7               ; The PrDevCtl Proc's ctl  # 

iPrReset       EQU      $00010000  ; The CParam for res
iPrPageEndEQU      $00020000  ; The CParam for end
iPrLineFeed EQU      $00030000   ; The CParam for pap 
lParam1 EQU      0                 ; the three printer parameters
lParam2 EQU      4
lParam3 EQU      8
 
; These are the standard call parameters
csCode  EQU      $1A      ;control dependent command 
csParam EQU      $1C             ;control dependent param.
ioCompletion  EQU     $C         ;pointer to async notifier routine
ioResult         EQU      $10      ;returns operation results
ioFileNameEQU      $12      ;pointer to name of driver
ioRefNum  EQU      $18      ;driver reference #
ioPermssn   EQU      $1B  ;read/write permission

; Traps used in this program
    .TRAP       _InitGraf                    $A86E
    .TRAP       _InitFonts                   $A8FE
    .TRAP       _FlushEvents       $A050
    .TRAP       _InitWindows       $A912
    .TRAP       _InitMenus                   $A930
    .TRAP       _InitDialogs                 $A97B
    .TRAP       _InitCursor                  $A850
    .TRAP       _TEInit                      $A9CC
    .TRAP       _Open                        $A000
    .TRAP       _Control                     $A004
    .TRAP       _SysBeep                     $A9C8
 
START
;Initialize Managers
PEA     -4(A5)            ;Space Created For Quickdraw's Use
_InitGraf                 ;Init Quickdraw
_InitFonts                ;Init the Font Manager
MOVE.L  #$0000FFFF,D0   ;This Mask Is For All Events
_FlushEvents              ;Flush All Of These Events
_InitWindows              ;Init the Window Manager
_InitMenus                ;Init the Menu Manager
CLR.L    -(SP)            ;restart procedure
_InitDialogs              ;Init the Dialog Manager
_InitCursor               ;Init to arrow cursor
_TEInit                   ;Init Text Edit
 
;------- OPEN THE PRINT DRIVER -------
LEA   '.Print',A1    ;Get a Pointer to the Drivers Name
LEA     IOPARMS,A0 ;Get the Parameter base addres
MOVE.L  A1,ioFileName(A0)     ;Store the Drivers Name addr
CLR.B    ioPermssn(A0)    ;fsCurPerm (whatever we got)
_OPEN
 LEA      IOPARMS,A0 ;Get the Parameter base address
 MOVE.W ioResult(A0),D0          ;Check for an error
 CMP.W  #0,D0                    ;is result ok?
 BEQ      @0                       ;Yes skip the error bell
 MOVE.W #30,-(SP)                ;beep length
 _SYSBEEP                          ;beep to indicate error
 BRA      @4

@0
;------ RESET THE PRINTER TO DEFAULTS -------
LEA     IOPARMS,A0               ;Get the Parameter base addr
MOVE.W  #iPrDevCtl,csCode(A0)   ;Set up a control type call
MOVE.L  #iPrReset,csParam+lParam1(A0)   ;only 1 (Reset)
CLR.L   csParam+lParam2(A0)
CLR.L   csParam+lParam3(A0)
_CONTROL
LEA     IOPARMS,A0 ;Get the Parameter base address
MOVE.W  ioResult(A0),D0   ;Check for an error
CMP.W   #0,D0                    ;is result ok?
 BEQ      @1                       ;Yes skip the error bell
 MOVE.W #30,-(SP)                ;beep length
 _SYSBEEP                          ;beep to indicate error
 BRA      @4
 
@1
;------ ACTUALLY PRINT THE WORD HELLO -------
LEATEXT_STRING,A1;Get address of string to pr
LEA     IOPARMS,A0 ;Get the Parameter base addres
MOVE.W  #iPrIOCtl,csCode(A0)  ;Set up a text streaming call
MOVE.L  A1,csParam+lParam1(A0)  ;Parameter one is a            
 ;pointer to the text
MOVE.L  #(TEXT_STRING_END-TEXT_STRING),                        csParam+lParam2(A0)
;Parameter two is the length of the text
CLR.L csParam+lParam3(A0)    ;No third Parameter
_CONTROL
 LEA      IOPARMS,A0         ;Get the Parameter base address
MOVE.W  ioResult(A0),D0   ;Check for an error
CMP.W   #0,D0                    ;is result ok?
BEQ     @2                         ;Yes skip the error bell MOVE.W
 #30,-(SP)                ;beep length
_SYSBEEP                           ;beep to indicate error
 BRA     @4

@2
;------ PRINT A CR+LF JUST FOR THE FUN OF IT --------
LEA   IOPARMS,A0            ;Get the Parameter base addres
MOVE.W  #iPrDevCtl,csCode(A0)   ;Set up a control type call
MOVE.L  #iPrLineFeed,csParam+lParam1(A0) 
 ;only 1? parameter (CR+LF)
CLR.L   csParam+lParam2(A0)     ;Parameter 2 undetermined
CLR.L    csParam+lParam3(A0)
_CONTROL
LEA     IOPARMS,A0         ;Get the Parameter base address
MOVE.W  ioResult(A0),D0          ;Check for an error
CMP.W   #0,D0                    ;is result ok?
BEQ     @3                         ;Yes skip the error bell
MOVE.W  #30,-(SP)                ;beep length
_SYSBEEP                           ;beep to indicate error
BRA     @4

@3
;---- EJECT A PAGE SO THAT WE CAN SEE WHAT HAPPENS
LEA     IOPARMS,A0          ;Get the Parameter base address
MOVE.W  #iPrDevCtl,csCode(A0)   ;Set up a control type call
MOVE.L  #iPrPageEnd,csParam+lParam1(A0) 
 ;only 1 parameter (eject)
CLR.L   csParam+lParam2(A0)
CLR.L   csParam+lParam3(A0)
_CONTROL
LEA     IOPARMS,A0          ;Get the Parameter base address
MOVE.W  ioResult(A0),D0          ;Check for an error
CMP.W   #0,D0                    ;is result ok?
 BEQ.S    @4                       ;Yes skip the error bell
 MOVE.W  #30,-(SP)                 ;beep length
_SYSBEEP                           ;beep to indicate error
@4
 RTS
 ;        Data Structures
TEXT_STRING      DC.B    'HELLO'
TEXT_STRING_END
.ALIGN  2
 
IOPARMS          DCB.L    20,0
; ------------------   end of program -------------------------------

Letters

First off, I want you to know that I really enjoy reading MacTutor, especially the articles on assembly language. Second I want to report a slight error on page 37 of the June issue. In figure 1 of that issue, a Pascal string is shown as 'fName: String[63]' with it's assembly equivalent as 'DCB.B 63,0'. This could be very misleading. A pascal string is always preceded by a one byte length byte. Thus STR[63] is rendered by DCB.B 64,0. Since using this structure as it was shown could cause an odd alignment of the next data structure, watch out for the 'ole length byte. It could be a difficult bug to track down! Thanks again for an interesting and informative publication.

Made my Day with Modula-2

Terri Wiles, President

Compu-Craft

Thank you for "making my day". We have just recieved the back issues we ordered. It is utterly exciting to see so many articles of substance, especially after months of searching through the pages and pages of the fluff of which certain other Mac magazines are comprised. It is particularly encouraging to me to see articles about Modula-2. I certainly want to express my most sincere hope that this will become a regular column, with particular emphasess on the task of interfacing with the Macintosh.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Capture One 15.3.1 - RAW workflow softwa...
Capture One is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 400 high-end cameras - straight out of the box. It offers... Read more
Connect Fonts 23.0.3 - Font management s...
Connect Fonts is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization. You... Read more
CleanMyMac X 4.11.0 - Delete files that...
CleanMyMac X makes space for the things you love. Sporting a range of ingenious new features, CleanMyMac lets you safely and intelligently scan and clean your entire system, delete large, unused... Read more
Firefox 102.0 - Fast, safe Web browser.
Firefox offers a fast, safe Web browsing experience. Browse quickly, securely, and effortlessly. With its industry-leading features, Firefox is the choice of Web development professionals and casual... Read more
Hopper Disassembler 5.6.1 - Binary disas...
Hopper Disassembler is a binary disassembler, decompiler, and debugger for 32- and 64-bit executables. It will let you disassemble any binary you want, and provide you all the information about its... Read more
Skim 1.6.11 - PDF reader and note-taker...
Skim is a PDF reader and note-taker for OS X. It is designed to help you read and annotate scientific papers in PDF, but is also great for viewing any PDF file. Skim includes many features and has a... Read more
Alfred 4.6.7 - Quick launcher for apps a...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
Transmit 5.8.7 - Excellent FTP/SFTP clie...
Transmit is an excellent FTP (file transfer protocol), SFTP, S3 (Amazon.com file hosting) and iDisk/WebDAV client that allows you to upload, download, and delete files over the internet. With the... Read more
Adobe Lightroom Classic 11.4.1 - Import,...
You can download Lightroom for Mac as a part of Creative Cloud for only $9.99/month with Photoshop, included as part of the photography package. The latest version of Lightroom gives you all of the... Read more
MarsEdit 4.5.9 - Quick and convenient bl...
MarsEdit is a blog editor for OS X that makes editing your blog like writing email, with spell-checking, drafts, multiple windows, and even AppleScript support. It works with with most blog services... Read more

Latest Forum Discussions

See All

Apple Arcade Weekly Round-Up: Major Upda...
Apple recently revealed July’s upcoming Apple Arcade releases in a new App Store Story, and this week’s new release is My Bowling 3D+ featuring offline and online multiplayer support, and more. It arrives from the developers of Pro Darts 2022+ and... | Read more »
Downhill Mountain Biking Game ‘Descender...
Just over three years ago in May of 2019 developer RageSquid and publisher No More Robots released a quirky downhill mountain biking game called Descenders on PC and Xbox One. Bemoaning a lack of “extreme sports" titles in recent years led RageSquid... | Read more »
SwitchArcade Round-Up: ‘Monster Hunter R...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for June 30th, 2022. Thursday is once more upon us, and that means a bunch of new releases to look at. We start things off with DLC for some very big games, Monster Hunter Rise and... | Read more »
‘HOOK 2’ Review – A Sharp Left Hook From...
The original HOOK ($1.99) had a very simple idea behind it. You were presented with a tangled mess of hooks and loops, and you needed to remove each one without snagging any others. Extremely simple at first, but as the puzzles rolled along,... | Read more »
‘Dicey Dungeons’ Mobile Version Launchin...
After a very long wait, Terry Cavanagh’s dungeon crawling roguelite deckbuiler hybrid experience Dicey Dungeons is coming to mobile platforms next week alongside a huge free DLC pack on all platforms. This DLC will be included in the mobile... | Read more »
Distract Yourself With These Great Mobil...
Every day, we pick out a curated list of the best mobile discounts on the App Store and post them here. This list won't be comprehensive, but it every game on it is recommended. Feel free to check out the coverage we did on them in the links below... | Read more »
‘Danganronpa S: Ultimate Summer Camp’ is...
If you’ve been following Danganronp over the last few years, Spike Chunsoft celebrated its anniversary by bringing the series to mobile in the form of anniversary editions. After the first two released, there was a long delay for V3, but it finally... | Read more »
Out Now: ‘HOOK 2’, ‘Incoherence’, ‘Juras...
Each and every day new mobile games are hitting the App Store, and so each week we put together a big old list of all the best new releases of the past seven days. Back in the day the App Store would showcase the same games for a week, and then... | Read more »
Upcoming Mobile MMO RPG Shooter ‘Avatar:...
This past January a contingent of developers made up of Archosaur Games, Tencent, Lightstorm Entertainment, and Disney announced a new mobile game set in James Cameron’s Avatar universe titled Avatar: Reckoning. | Read more »
Culinary Platformer ‘Chefy-Chef’ Coming...
If your name is Chefy, it’s pretty much a given that you should be a chef. Such is the case with Chefy-Chef, a game from Bug Studio about a chef named Chefy who must travel to all sorts of exotic locations using a magical refrigerator in an effort... | Read more »

Price Scanner via MacPrices.net

July 4th sale at Verizon: Apple AirPods Pro f...
Verizon has Apple AirPods Pro on sale for $179.99 on their online store as part of their Fourth of July sale. Their price is $70 (28%) off Apple’s MSRP, and it’s among the lowest prices currently... Read more
Apple is now selling Certified Refurbished Ma...
Apple has added a full line of standard-configuration Mac Studios available in their Certified Refurbished section starting at only $1799 and ranging up to $400 off MSRP. Each Mac Studio comes with... Read more
Open-box 14″ M1 Pro MacBook Pros in stock tod...
QuickShip Electronics has open-box return Space Gray 14″ M1 Pro MacBook Pros in stock and on sale for $300-$450 off MSRP on their eBay store today. According to QuickShip, “The item in this listing... Read more
Can Being An iPhone User Really Determine Whe...
FEATURE: – If you’re traveling on the road today for the July 4th holiday, you might want to keep your Apple smartphone locked up inside the car’s glove compartment for your (and, everyone else’s)... Read more
2nd generation 4K Apple TVs with Siri remote...
Apple has restocked a full line of Certified Refurbished 2nd generation 32GB and 64GB 4K Apple TVs with Siri remotes for $30 off the cost of new models. Apple’s standard one-year warranty is included... Read more
Back in stock: Apple Watch Series 7 models fo...
Apple has restocked Certified Refurbished Apple Watch Series 7 WiFi-only models in their online store for $60-$70 off MSRP, starting at $339. Each Watch includes Apple’s standard one-year warranty, a... Read more
July 4th Sale at Expercom: $200 off any 16″ M...
Apple reseller Expercom has 16″ M1 Pro and M1 Max MacBook Pros available for $200 off MSRP as part of their July 4th sale. In addition to their MacBook Pro sale prices, take $50 off AppleCare+ when... Read more
10.2″ Apple iPads (WiFi models) are on sale f...
Amazon has Apple’s 9th generation 10.2″ WiFi iPads on sale for up to $20-$50 off MSRP for a limited time. Their prices are the lowest price currently available for one of these iPads. All models are... Read more
10-Core M1 Pro 14″ MacBook Pros on sale for $...
B&H Photo is offering $200 discounts on Apple’s new 14″ M1 Pro MacBook Pros with 10-Core CPUs (16GB RAM/1TB SSDs). Free 1-2 day shipping is available to most US addresses, and both models are in... Read more
B&H has 16-inch M1 Pro MacBook Pros in st...
New Space Gray 16″ MacBook Pros with Apple’s M1 Pro CPUs are in stock and on sale today at B&H Photo for $200 off Apple’s MSRP. Sale prices are for M1 Pro models with 512GB or 1TB of SSD storage... Read more

Jobs Board

VP, Software Engineering - *Apple* and Andr...
…Client Application Software Engineering team is seeking a VP, Software Engineering for Apple and Android. You will lead the client engineering team building Disney+, Read more
I/S Senior Engineer - *Apple* Systems Engin...
**19647BR** **Position Title:** I/S Senior Engineer - Apple Systems Engineering - Remote **Department:** Information Systems **Location:** Lakeland, FL between Read more
*Apple* IT Support Analyst - 2nd Shift - Zon...
Apple IT Support Analyst - 2nd Shift Professional Services Albany, New York Malta, New York Clifton Park, New York Menands, New York Syracuse, New York Watertown, Read more
Infotainment Certification Test Engineer (XC)...
…integration - CarPlay, android auto, MirrorLink, Baidu Carlife, MFi/iPod certification testing; Apple PPID preparation, Google HUCD and GTM preparation + 3 years of Read more
Workplace Services *Apple* Device Managemen...
…3350 Riverwood Parkway Suite 900, Atlanta, GA, 30339 USA **Workplace Services Apple Device Management** **Role Overview** Carrier is seeking an experienced and Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.