9  SL2 100: INITIALIZE9200: WAIT FOR RINGV(300: WAIT FOR NO RINGo2400: PICK UP PHONE<500: TRANSMIT A CARRIERF600: WAIT FOR RESPONSEPFLİ700:30: TURN OFF CARRIER, HANG UP, WAIT FOR RING.  Z800: CARRIER DETECTED! d *** INITIALIZE ***n x1625516SL,0: 212 OFF, TAPE RECORDER OFF, SPEAKER ON, MICROPHONE OFF 1625416SL,1: ON HOOK, TOUCH TONE CLEAR 1625316SL,6: 6=4+2. IRQ OFF, BSR OFF 1624716SL,100: 103 ANS MOD7 1624516SL,34: 34=32+2. TRANSMIT 300 BAUD, RECIEVE 300 BAUD.^ 1624416SL,12: TRANSMITTER OFF 1624316SL,24: 24=16+8. IRQ OFF, TRANSMITTER OFF 1624116SL,0:UART INPUT FROM MODEM, OUTPUT TO MODEM  *** WAIT FOR RING ***! RING DETECT IS BIT 0 OF9 ADDR -16243+16*SLU "WAITING FOR RING...."l AC(1624316SL) AC2(AC2)230: NO RING DETECTED , *** WAIT FOR NO RING *** 6 RING DETECT IS BIT 0 OF @ ADDR -16243+16*SL JAC(1624316SL)0 T(AC2(AC2))330: RING DETECTED6 ^R  *** PICK UP PHONE ***i  HOOK IS BIT 1 OF  ADDR -16254+16*SL 1625416SL,3: PICK UP PHONE, CLEAR TOUCH TONE   *** TRANSMIT CARRIER ***  TRANSMITTER IS BITS 3-0  OF ADDR -16243+16*SL< 1624316SL,0: TRANSMIT CARRIERB _ X *** WAIT UNTIL CARRIERz b DETECTED OR TIME l RUNS OUT v  CD IS BIT 5 OF  ADDR -16256+16*SL LP11000 CD((1625616SL)32)FL(CD2(CD2))FLĂLPFLĺ"CD":."NO CD":I *** TURN OFF CARRIER[ HANG UP1624316SL,24: TURN OFF CARRIER1625416SL,1: HANG UP  SEE IF CARRIER STILL PRESENT*CD((1625616SL)32)4FL(CD2(CD2))>FLİ700:: CARRIER LOSTAH(16384)127İ900: KEY PRESSED]RRX((1624116SL)8)s\FL(RX2(RX2))fFLİ1000:RECIEVE REGISTER FULLp810X(16384)16368,0(X128);1624216SL,X1625116SL,XX(1624516SL)(X);21624216SL,X816SL,XI